﻿Namespace Core.InitConfiguration
    Partial Public Class InitConfiguration

        Private Shared Sub CreateDefaultApplicationFolders()
            'If Not ExistDir(My.Resources.ACE_CONFIGURACAO_DIR_REPORT) Then
            '    CreateDir(My.Resources.ACE_CONFIGURACAO_DIR_REPORT)
            'End If

            'If Not ExistDir(My.Resources.ACE_CONFIGURACAO_DIR_IMAGEM) Then
            '    CreateDir(My.Resources.ACE_CONFIGURACAO_DIR_IMAGEM)
            'End If

            'If Not ExistDir(My.Resources.ACE_CONFIGURACAO_DIR_PRODUTO) Then
            '    CreateDir(My.Resources.ACE_CONFIGURACAO_DIR_PRODUTO)
            'End If
        End Sub

        Private Shared Function CreateDir(ByVal str As String) As Boolean
            Dim bSucess As Boolean
            Try
                My.Computer.FileSystem.CreateDirectory(str)
                bSucess = True
            Catch ex As Exception
                bSucess = False
            End Try
            Return bSucess
        End Function

        Private Shared Function ExistDir(ByVal str As String) As Boolean
            Return My.Computer.FileSystem.DirectoryExists(str)
        End Function

    End Class
End Namespace
